home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / E / E-Mail.cpt / E-Mail / card_2998.txt < prev    next >
Text File  |  1988-04-23  |  3KB  |  126 lines
  1. -- card: 2998 from stack: in
  2. -- bmap block id: 8905
  3. -- flags: 0000
  4. -- background id: 2644
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on opencard
  8.   set userlevel to 2
  9.   hide background button book
  10.   hide background button find
  11. end opencard
  12.  
  13. on closecard
  14.   set userlevel to 1
  15.   show background button book
  16.   show background button find
  17. end closecard
  18.  
  19.  
  20. -- part 9 (button)
  21. -- low flags: 00
  22. -- high flags: A004
  23. -- rect: left=62 top=279 right=301 bottom=147
  24. -- title width / last selected line: 0
  25. -- icon id / first selected line: 0 / 0
  26. -- text alignment: 1
  27. -- font id: 0
  28. -- text size: 12
  29. -- style flags: 0
  30. -- line height: 16
  31. -- part name: Order Book
  32. ----- HyperTalk script -----
  33. on mouseUp
  34.   doMenu Last
  35.   put "$ 2.50" into line 3 of card field price
  36.   answer "Are you a member of the ELP Section?" with "Yes" or "No"
  37.   if it is "Yes" then
  38.     put "$39.95" into line 1 of card field price
  39.     put "$42.45" into line 4 of card field price
  40.   else
  41.     put "$49.95" into line 2 of card field price
  42.     put "$52.45" into line 4 of card field price
  43.     answer "Do you want information about the ELP Section?" with "Yes" or "No"
  44.     if it is "Yes" then put "Send ELP Info" into line 1 of card field Info
  45.   end if
  46.   ask "What is your name?"
  47.   put it into line 1 of card field Address
  48.   ask "What is your firm name/company?"
  49.   put it into line 2 of card field Address
  50.   ask "What is your street address?"
  51.   put it into line 3 of card field Address
  52.   ask "What is your city?"
  53.   put it into line 1 of card field City
  54.   ask "What is your state?"
  55.   put it into line 1 of card field State
  56.   ask "What is your zip code?"
  57.   put it into line 1 of card field Zip
  58.   answer "How are you paying this?" with "Check" or "MasterCard" or "Visa"
  59.   if it = "Check" then
  60.     put "X" into line 1 of card field Check
  61.   else
  62.     if it = "MasterCard" then
  63.       put "X" into line 1 of card field MC
  64.     else
  65.       put "X" into line 1 of card field Visa
  66.     end if
  67.     ask "What is your credit card No.?"
  68.     put it into line 1 of card field CreditNo
  69.     ask "What is its expiration date?"
  70.     put it into line 1 of card field Date
  71.   end if
  72.   doMenu print card
  73.   repeat with i= 1 to 4
  74.     put " " into line i of card field price
  75.   end repeat
  76.   repeat with i= 1 to 3
  77.     put " " into line i of card field Address
  78.   end repeat
  79.   put " " into line 1 of card field City
  80.   put " " into line 1 of card field State
  81.   put " " into line 1 of card field Zip
  82.   put " " into line 1 of card field Check
  83.   put " " into line 1 of card field MC
  84.   put " " into line 1 of card field Visa
  85.   put " " into line 1 of card field CreditNo
  86.   put " " into line 1 of card field Date
  87.   put " " into line 1 of card field Info
  88.   doMenu Prev
  89. end mouseUp
  90.  
  91.  
  92.  
  93. -- part 10 (button)
  94. -- low flags: 00
  95. -- high flags: 0000
  96. -- rect: left=166 top=275 right=304 bottom=202
  97. -- title width / last selected line: 0
  98. -- icon id / first selected line: 2162 / 2162
  99. -- text alignment: 1
  100. -- font id: 0
  101. -- text size: 12
  102. -- style flags: 0
  103. -- line height: 16
  104. -- part name: Return
  105. ----- HyperTalk script -----
  106. on mouseUp
  107.   visual effect iris close
  108.   pop card
  109. end mouseUp
  110.  
  111.  
  112.  
  113. -- part contents for background part 9
  114. ----- text -----
  115.  
  116.  
  117.  
  118.  
  119.  
  120.  
  121.  
  122.  
  123.  
  124.  
  125.  
  126.